home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / pc / media / solaris.dxr / Internal_12_thumbnail behavior.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  622 b   |  36 lines

  1. property pMySprite
  2. global gPicNo
  3.  
  4. on beginSprite me
  5.   pMySprite = sprite(me.spriteNum)
  6.   sprite(50).loc = point(-500, -500)
  7.   sprite(50).visible = 0
  8. end
  9.  
  10. on endSprite me
  11.   sprite(50).loc = point(0, 0)
  12.   sprite(50).visible = 1
  13. end
  14.  
  15. on mouseEnter me
  16.   setCursorHand()
  17.   sprite(50).rect = pMySprite.rect
  18.   sprite(50).visible = 1
  19. end
  20.  
  21. on mouseLeave me
  22.   setCursorStop()
  23.   sprite(50).loc = point(-500, -500)
  24.   sprite(50).visible = 0
  25. end
  26.  
  27. on mouseUp me
  28.   myName = pMySprite.member.name
  29.   gPicNo = integer(myName.char[6..myName.length])
  30.   if gPicNo > 0 then
  31.     go("pic")
  32.     setCursorStop()
  33.   end if
  34.   sprite(3).visible = 1
  35. end
  36.